home *** CD-ROM | disk | FTP | other *** search
/ SPACE 1 / SPACE - Library 1 - Volume 1.iso / demos / 10 / logoprg / kite.log < prev    next >
Encoding:
Text File  |  1986-04-18  |  763 b   |  54 lines
  1. TO KITE :X :TAIL :NUM
  2. (LOCAL "STEP1 "TEMP "STEP1 "STEP2)
  3. MAKE "STEP1 :X / :NUM
  4. MAKE "STEP2 :TAIL / :NUM
  5. CS
  6. RT 45
  7. RECUR.DIAM :X :TAIL
  8. LT 45
  9. AFRAME :X :TAIL
  10. REPEAT 100 []
  11. END
  12.  
  13. TO RECUR.DIAM :X :TAIL
  14. TOPS :X
  15. BOT :X :TAIL
  16. PU
  17. RT 90
  18. FD :STEP1
  19. LT 45
  20. PD
  21. IF :X = :STEP1 [STOP]
  22. RECUR.DIAM :X - :STEP1 :TAIL
  23. END
  24.  
  25. TO TOPS :X
  26. LOCAL "SHORTSIDE
  27. MAKE "SHORTSIDE (SQRT 2) * :X
  28. FD :SHORTSIDE
  29. RT 90
  30. FD :SHORTSIDE
  31. END
  32.  
  33. TO BOT :X :TAIL
  34. LOCAL "LONGSIDE
  35. LOCAL "ANGLE
  36. MAKE "LONGSIDE SQRT ((:X * :X) + (:TAIL * :TAIL))
  37. MAKE "ANGLE ARCTAN (:X / :TAIL)
  38. RT (45 + :ANGLE) FD :LONGSIDE
  39. RT (180 - 2 * :ANGLE)
  40. FD :LONGSIDE
  41. RT :ANGLE
  42. END
  43.  
  44. TO AFRAME :X :TAIL
  45. FD :X
  46. BK (:X + :TAIL
  47. FD :TAIL RT 90
  48. FD :X
  49. BK (:X + :X)
  50. LT 45
  51. END
  52.  
  53. MAKE "GFILL "FALSE
  54.